#Include 'Protheus.ch'

USER FUNCTION TstExpTol()

RETURN NIL

//-----------------------------------------------------------------
STATIC FUNCTION ExecRot(lEnd)
LOCAL cAlias := GetNextAlias()
LOCAL cQuery := ""
LOCAL cDir := GetSrvProfString("Startpath", "") + "Toledo\IN\"

IF !ExistDir(cDir)
	FWMakeDir(cDir, .F.)
ENDIF



//MemoWrite("C:\RelMicrosiga\TstExpTol.txt", cQuery)
cQuery := ChangeQuery(cQuery)

RETURN NIL

//-----------------------------------------------------------------